home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / sviewiv / arexx-scripts / exporttoarteffect.rx < prev    next >
Text File  |  1999-11-30  |  1KB  |  62 lines
  1. /*
  2.    $VER: ExportToArtEffect.rx V9.00 (9.9.99)
  3.    © 1999 by Andreas R. Kleinert
  4.  
  5.    This exports a graphics (that is currently loaded
  6.    in SViewIV) to ArtEffect. ArtEffect must be running.
  7.  
  8.    USAGE: RX ExportToArtEffect
  9. */
  10.  
  11. address command
  12.  
  13. OPTIONS RESULTS
  14. SIGNAL ON ERROR
  15.  
  16. SVIIPORT = 'SViewII.rx'
  17. SVNGPORT = 'SViewNG.rx'
  18. SVPORT   = 'SuperView.rx'
  19.  
  20. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  21. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  22. IF ~SHOW('P',SVPORT) THEN DO
  23.   say "Could not locate ARexx port of SViewIV !"
  24.   CALL ErrorOut 0
  25. END
  26.  
  27. ADDRESS VALUE SVPORT
  28.  
  29. 'SAVE_TYPE=ILBM CmpByteRun1'
  30. 'SAVE='||'T:AE_EXPORT'
  31.  
  32. address command wait 3
  33.  
  34. IF ~SHOW('P','ArtEffect') THEN DO
  35.   say "Could not locate ARexx port of ArtEffect !"
  36.   CALL ErrorOut 0
  37. END
  38.  
  39. address 'ArtEffect'
  40.  
  41. lockgui
  42. loadpic 'T:AE_EXPORT'
  43. unlockgui
  44.  
  45. address command wait 3
  46. address command
  47.  
  48. Delete 'T:AE_EXPORT'
  49. Delete 'T:AE_EXPORT.info'
  50.  
  51. CALL ErrorOut 0
  52.  
  53.  
  54. /* Errorout procedure ----------------------- */
  55.  
  56. ErrorOut:
  57.         PARSE ARG ExitCode
  58.  
  59.         EXIT ExitCode
  60.  
  61.   END
  62.